home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 15 / Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_B.d64 / charsetview [ca] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  64 lines
  1. 10 poke 808,225
  2. 11 poke 53280,9 :poke53281,9
  3. 12 print"[147]andreas menke (ca) for tigerdisc!"
  4. 13 print"craze artworx presents 'charsetview'"
  5. 14 print"note: this prg does not view all char-"
  6. 15 print"acters and the charset must be at       $2000!"
  7. 16 print"[159]l/ade zeichensatz z/eige zeichensatz"
  8. 17 get a$:if a$="l" then goto 20
  9. 18 if a$="z" then goto 34
  10. 19 goto 17
  11. 20 print"der filename muss so aufgebaut sein:"
  12. 21 print"[163][163][163][163]"
  13. 22 print"[159]x.name"
  14. 23 print"[194]"
  15. 24 print"[194]"
  16. 25 print"kennung (1-9;a-p)
  17. 26 [153]"bitte kennung eingeben (1-p)  $wait = dir."
  18. 27 [161] b$:[139] b$[178]""[167]27
  19. 28 [139]b$[178]"$"[167][141]61:[137]26
  20. 29 [139] [198](b$)[177]48 [175] [198](b$)[179]58[167]32
  21. 30 [139] [198](b$)[177]64 [175] [198](b$)[179]81[167]32
  22. 31 [137]27
  23. 32 [159]2,8,2,b$[170]"*,p,r":[137]67
  24. 33 [147]b$[170]"*",8,1
  25. 34 [160]2:[160]15:[153]"open1=1x1 2=1x2 3=2x2"
  26. 35 [153]"welche zeichensatz-art ? (1-3)"
  27. 36 [161] c$:[139]c$[178]""[167]36
  28. 37 c[178][197](c$):[139]c[179]1[176]c[177]3[167]36
  29. 38 [145] c  [137]40,49,55
  30. 39 [143]>-c/1995 by andreas menke (c art)
  31. 40 [151]53272,25:[153]"loadabcdefghijklmnopqrstuvwxyz0123456789+-="
  32. 41 [153]"?!<>.,:;=[]^*@(NULL)\"
  33. 42 [153]"atnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)!#$%&'()(NULL)(NULL)stepsqrtan"
  34. 43 [153]"abcdefghijklmnopqrstuvwxyz0123456789+-="
  35. 44 [153]"?!<>,.:;=[]^*@(NULL)\"
  36. 45 [153]"atnpeeklenstr$valascchr$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)!#$%&'()(NULL)(NULL)stepsqrtan"
  37. 46 [153]"openbitte taste druecken!"
  38. 47 [151] 198,0:[146] 198,1
  39. 48 [151]53272,20:[137] 11
  40. 49 [151]53272,25:[153]"loadabcdefghijklmnopqrstuvwxyz"
  41. 50 [153]"atnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  42. 51 [143] andreas menke       meisenweg 2
  43. 52 [143]         59939 olsberg
  44. 53 [151] 198,0:[146] 198,1
  45. 54 [151]53272,20:[137] 11
  46. 55 [151]53272,25:[153]"loadaatnbpeekclendstr$evalfascgchr$hleft$iright$jmid$k(NULL)l(NULL)m(NULL)n(NULL)o(NULL)p(NULL)q(NULL)r(NULL)s(NULL)"
  47. 56 [153]"aatnbpeekclendstr$evalfascgchr$hleft$iright$jmid$k(NULL)l(NULL)m(NULL)n(NULL)o(NULL)p(NULL)q(NULL)r(NULL)s(NULL)"
  48. 57 [153]"waitt(NULL)u(NULL)v(NULL)w(NULL)x(NULL)y(NULL)z(NULL)"
  49. 58 [153]"t(NULL)u(NULL)v(NULL)w(NULL)x(NULL)y(NULL)z(NULL)"
  50. 59 [151] 198,0:[146] 198,1
  51. 60 [151] 53272,20:[137] 11
  52. 61 [153]"load":[159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
  53. 62 [161]a$,a$,h$,l$:[139]st[167][158]65484:[160]1:[137]66
  54. 63 [153][198](h$[170]e$)[170]256[172][198](l$[170]e$);
  55. 64 [161]a$,b$:[139]a$[167][153]a$b$;:[137]64
  56. 65 [153]a$:[137]62
  57. 66 [151]198,0:[146]198,1:[151]198,0:[142]
  58. 67 [159]15,8,15
  59. 68 [132]15,aa,bb$,cc,dd
  60. 69 [139]aa[179][177]0[167][153]"              f e h l e r  !           ":[137]71
  61. 70 [137]33
  62. 71 [153],aa;bb$;cc;dd
  63. 72 [129]t[178]1[164]2000:[130]:[160]2:[160]15:[137]26
  64.